home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / NETERM.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  40 lines
  1. 10 POKE56,20:POKE644,20:CLR:GOTO2020
  2. 20 PRINT"[147]";CHR$(142);
  3. 25 A$="":INPUT"IS THE PRINTER TURNED ON (Y/N)";A$
  4. 30 IFA$="N"THEN45
  5. 35 IFA$<>"Y"THEN25
  6. 37 INPUT"NLQ OR DRAFT (N/D)";A$:IFA$<>"N"ANDA$<>"D"THEN37
  7. 40 E$=CHR$(27):Q$="E":IFA$="N"THENQ$="G"
  8. 42 OPEN4,4,7:PRINT#4,E$;"A";E$;Q$;
  9. 45 PRINT"[147]PRESS F1 FOR TERMINAL MODE."
  10. 50 PRINT"PRESS F8 TO EXIT."
  11. 55 PRINT"WHILE IN TERMINAL MODE,"
  12. 60 PRINT"PRESS F3 FOR MENU MODE."
  13. 65 PRINT"PRESS F5 FOR PRINTER ON."
  14. 70 PRINT"PRESS F7 FOR PRINTER OFF."
  15. 75 GETA$:IFA$=CHR$(133)THEN90
  16. 80 IFA$=CHR$(140)THENCLOSE4:END
  17. 85 GOTO75
  18. 90 OPEN2,2,2,CHR$(6)+CHR$(0)
  19. 95 F2$="ATX2DT5555555"+CHR$(13)
  20. 100 F4$="99999,9999"+CHR$(13)
  21. 105 F6$="NUMBER/MODEM"+CHR$(13)
  22. 110 POKE150,.:PRINTCHR$(14)
  23. 115 POKE631,65:POKE632,84:POKE633,90:POKE634,13:POKE198,4
  24. 120 PRINT"[147]";:POKE1184,100:SYS49680:SYS49152:CLR
  25. 125 IFPEEK(150)=.THEN10
  26. 130 A=PEEK(140)+256*PEEK(141)
  27. 135 B=PEEK(253)+256*PEEK(254)
  28. 140 IFA=BTHEN10
  29. 145 PRINT"[147]";CHR$(142);A-B;"BYTES LEFT IN BUFFER."
  30. 150 A$="":INPUT"DO YOU WANT TO FINISH PRINTING (Y/N)";A$
  31. 155 IFA$="N"THEN10
  32. 160 IFA$<>"Y"THEN150
  33. 170 SYS50037:GOTO10
  34. 2020 PRINT"[147]ONE MOMENT PLEASE..."
  35. 2025 S=PEEK(45)+256*PEEK(46)-1
  36. 2030 IFPEEK(S)THENS=S-1:GOTO2030
  37. 2035 S=S-917
  38. 2040 FORI=.TO917:POKE49152+I,PEEK(S+I):NEXT
  39. 2045 POKE2071,48:GOTO20
  40.